10 DIMC$(12),U$(12)
12 PRINT"[144][147]":POKE53280,1:POKE53281,1:POKE53272,21
13 PRINT"EXCHANGE RATES DATE MAY 6,1978"
15 PRINT"NUMBER","COUNTRY","UNIT","$ VALUE"
16 RESTORE
17 PRINT
20 C=1
30 READC$,U$,D
40 IFD=-99THEN100
50 PRINTC,C$,U$,D
60 C=C+1
70 GOTO30
100 PRINT
110 PRINT
120 PRINT"WHICH NUMBER UNITS WILL YOU START WITH"
130 INPUTC1
140 RESTORE
150 FORI=1TOC1
160 READ C$,U$,D
165 NEXTI
170 D1=D
180 PRINTC1,C$,U$,D
190 PRINT"WHICH NUMBER UNITS DO YOU WANT THEMCONVERTED TO"
200 INPUTC2
255 RESTORE
260 FORI=1TOC2
270 READC$,U$,D
280 NEXTI
285 D2=D
290 PRINTC2,C$,U$,D
295 PRINT"WHAT QUANTITY DO YOU WANT CONVERTED"
296 INPUTQ1
300 Q2=Q1*D1
310 PRINT"DOLLAR VALUE $";Q2
320 Q3=Q2/D2
330 PRINT"CONVERTED VALUE ";C$;" ";U$;" ";Q3
499 DATA"USA","DOLLAR",1
500 DATA"AUSTRALIA","DOLLAR ",1.131,"ARGENTINA","PESO",.0015
501 DATA"AUSTRIA","SCHILLING",.0668
502 DATA"BRITIAN","POUND",1.8278
503 DATA"CANADA","DOLLAR",.8864
504 DATA"FRANCE","FRANC",.2166
505 DATA"GREECE","DRACHMA",.0289
506 DATA"HOLLAND","GUILDER",.4506
507 DATA"HONG KONG","DOLLAR",.2157
508 DATA"INDIA","RUPEE",.1191
509 DATA"ISREAL","POUND",.0598
510 DATA"ITALY","LIRA",.001152
511 DATA"JAPAN","YEN",.004421
512 DATA"MEXICO","PESCO ",.0439
513 DATA"S. AFRICA","RAND",1.15
514 DATA"SWITZLAND","FRANC",.5128
515 DATA"W GERMANY","MARK",.4816
516 DATA"BELGIUM","FRANC",.031385
517 DATA"FFF","FFF",-99
518 DATA"TAIWAN","DOLLAR",.0265
519 DATA"COLOMBIA","PESO",.029
520 DATA"DENMARK","KRONE",.1774
521 DATA"FINLAND","MARKKA",.2387
522 DATA"INDONESIA","RUPIAH",.00259
523 DATA"IRAN","RIAL",.0142
524 DATA"MALAYSIA","DOLLAR",.4255
525 DATA"SINGAPORE","DOLLAR",.4317
599 DATA"FFF","FFF",-99
600 PRINT"DO YOU WANT TO CONVERT SOME MORE"
610 INPUTC$
620 IFC$="YES" THEN12
999 STOP
9999 END